home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D3A.D64 / mcode fill (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  438 b   |  16 lines
  1. 10 IFA=0THENA=A+1:LOAD"FILL CODE",8,1
  2. 20 POKE53280,0:POKE53281,0:PRINT"[147]SCREEN[160]FILL[160]ROUTINES"
  3. 30 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  4. 40 PRINT"SELECT[160]AN[160]OPTION[160]AND[160]PRESS[160]THE[160]SPACEBAR[160]";
  5. 50 PRINT"AFTER[160]THE[160]PROGRAM[160]HAS[160]FILLED[160]THE[160]SCREEN."
  6. 60 PRINT"1[160]BASIC"
  7. 70 PRINT"2[160]MACHINE[160]CODE"
  8. 80 GET A$:IFA$="1"THEN110
  9. 90 IF A$="2"THEN120
  10. 100 GOTO80
  11. 110 FORA=1024TO2023:IFPEEK(A)=32THENPOKEA,42:POKE54272+A,7
  12. 115 NEXT:GOTO130
  13. 120 SYS49152
  14. 130 GETA$:IFA$<>" "THEN 130
  15. 140 GOTO20
  16.